﻿Namespace My

    ' The following events are available for MyApplication:
    ' 
    ' Startup: Raised when the application starts, before the startup form is created.
    ' Shutdown: Raised after all application forms are closed.  This event is not raised if the application terminates abnormally.
    ' UnhandledException: Raised if the application encounters an unhandled exception.
    ' StartupNextInstance: Raised when launching a single-instance application and the application is already active. 
    ' NetworkAvailabilityChanged: Raised when the network connection is connected or disconnected.
    Partial Friend Class MyApplication

        Private Sub MyApplication_NetworkAvailabilityChanged(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.Devices.NetworkAvailableEventArgs) Handles Me.NetworkAvailabilityChanged
            Call frmTweetMyPc.CheckForWebConnection()
        End Sub

        Private Sub MyApplication_UnhandledException(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.UnhandledExceptionEventArgs) Handles Me.UnhandledException
            frmTweetMyPc.DebugPrintHelper("oops! A totally unhandled exception is raised: " & vbCrLf & _
                                          "Messsage: " & e.Exception.Message & vbCrLf & _
                                          "TargetSite: " & e.Exception.TargetSite.Name & vbCrLf & _
                                          "StackTrace: " & e.Exception.StackTrace & vbCrLf & _
                                          "Source: " & e.Exception.Source.ToString)
            MessageBox.Show("Oh, a bad and unexpected error occurred.." & vbCrLf & "The application will close itselfe now, so you don't have to worry about it." & vbCrLf & _
                            "Reopen the application and try again. If this happens more then once, pleace visit http://tweetmypc.codeplex.com and ask for help there, so the problem can easily be fixed.", _
                            "Unexpected Error happened", MessageBoxButtons.OK, MessageBoxIcon.Error)
            e.ExitApplication = True
        End Sub
    End Class

End Namespace

